Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/emerald/emrldsys.lha/Language/ExecTests/thairy.m

Text File | 1990-08-31 | 338b | 12 lines

import runtest from "RunTest"

const thairy <- object thairy
  const myTest == runtest.create[stdin, stdout, "thairy"]
  process
    % each test looks like myTest.check[<boolean expression>, "<same exp>"]
    var i, j : Integer
    i <- ((i + i) * (i + i) * (i + i) + (i + i) * (i + i) * (i + i))
    myTest.done
  end process
end thairy